with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Number');
	Columns.Add('Format');
	with Items do
	begin
		h := AddItem('1.23');
		CellValueFormat[OleVariant(h),OleVariant(1)] := EXG2ANTTLib_TLB.exComputedField;
		CellValue[OleVariant(h),OleVariant(1)] := '2 * %0 + ` (2 * Number)`';
		h := AddItem('1.23');
		CellValueFormat[OleVariant(h),OleVariant(1)] := EXG2ANTTLib_TLB.exComputedField;
		CellValue[OleVariant(h),OleVariant(1)] := '3 * %0 + ` (3 * Number)`';
		h := AddItem('1.23');
		CellValueFormat[OleVariant(h),OleVariant(1)] := EXG2ANTTLib_TLB.exComputedField;
		CellValue[OleVariant(h),OleVariant(1)] := 'currency(%0) + ` ( Currency(Number) )`';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	Columns.Add('Default');
	with Chart do
	begin
		AllowInsideZoom := True;
		FirstWeekDay := EXG2ANTTLib_TLB.exMonday;
		FirstVisibleDate := '3/31/2013';
		PaneWidth[False] := 52;
		LevelCount := 2;
		UnitScale := EXG2ANTTLib_TLB.exHour;
		Level[1].Label := '<font ;6><%h%></font>';
		UnitWidth := 14;
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
		AllowInsideZoom := True;
		DefaultInsideZoomFormat.InsideUnit := EXG2ANTTLib_TLB.exMinute;
		AllowResizeInsideZoom := False;
		InsideZoomOnDblClick := False;
		with InsideZooms do
		begin
			SplitBaseLevel := False;
			DefaultWidth := 0;
		end;
		with InsideZooms do
		begin
			Add('3/31/2013 11:00:00 PM');
		end;
	end;
	with Items do
	begin
		AddItem('Item');
	end;
	EndUpdate();
end

// Change event - Occurs when the user changes the cell's content.
procedure TForm1.G2antt1Change(ASender: TObject; Item : HITEM;ColIndex : Integer;var NewValue : OleVariant);
begin
	with G2antt1 do
	begin
		OutputDebugString( 'NewValue is' );
		OutputDebugString( NewValue );
	end
end;

with G2antt1 do
begin
	with (IUnknown(Columns.Add('DropDownList-String')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DropDownListType;
		AddItem(1,'NYC|New York City',Null);
		AddItem(2,'CJN|Cluj Napoca',Null);
	end;
	with (IUnknown(Columns.Add('DropDownList-Numeric')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DropDownListType;
		AddItem(1,'New York City',Null);
		AddItem(2,'Cluj Napoca',Null);
	end;
	with Items do
	begin
		CellValue[OleVariant(AddItem('NYC')),OleVariant(1)] := OleVariant(2);
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column) do
	begin
		Width := 64;
		AllowSizing := False;
		with Editor do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := ';;;rich';
		end;
	end;
	Columns.Add('Empty');
	with Items do
	begin
		AddItem('This is a bit ot long text');
		AddItem('');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column) do
	begin
		Width := 64;
		AllowSizing := False;
		with Editor do
		begin
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20);
			EditType := EXG2ANTTLib_TLB.DropDownType;
			AddItem(1,'First item. This is a bit ot long text',Null);
			AddItem(2,'Second item. This is a bit ot long text',Null);
			AddItem(3,'Third item. This is a bit ot long text',Null);
			Mask := ';;;rich';
		end;
	end;
	with (IUnknown(Columns.Add('PickEdit')) as EXG2ANTTLib_TLB.Column) do
	begin
		Width := 64;
		AllowSizing := False;
		with Editor do
		begin
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20);
			EditType := EXG2ANTTLib_TLB.PickEditType;
			AddItem(1,'First item. This is a bit ot long text',Null);
			AddItem(2,'Second item. This is a bit ot long text',Null);
			AddItem(3,'Third item. This is a bit ot long text',Null);
			Mask := ';;;rich';
		end;
	end;
	Columns.Add('Empty');
	with Items do
	begin
		CellValue[OleVariant(AddItem('First item. This is a bit ot long text')),OleVariant(1)] := 'Second item. This is a bit ot long text';
		h := AddItem('First item. This is a bit ot long text');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20);
			EditType := EXG2ANTTLib_TLB.DropDownType;
			AddItem(1,'First item. This is a bit ot long text',Null);
			AddItem(2,'Second item. This is a bit ot long text',Null);
			AddItem(3,'Third item. This is a bit ot long text',Null);
		end;
		CellValue[OleVariant(h),OleVariant(1)] := 'Second item. This is a bit ot long text';
		with CellEditor[OleVariant(h),OleVariant(1)] do
		begin
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20);
			EditType := EXG2ANTTLib_TLB.PickEditType;
			AddItem(1,'First item. This is a bit ot long text',Null);
			AddItem(2,'Second item. This is a bit ot long text',Null);
			AddItem(3,'Third item. This is a bit ot long text',Null);
		end;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DateType;
		Option[EXG2ANTTLib_TLB.exDropDownBackColor] := OleVariant(15790320);
		Option[EXG2ANTTLib_TLB.exDropDownForeColor] := OleVariant(65793);
	end;
	Items.AddItem('1/1/2001');
	EndUpdate();
end

// EditClose event - Occurs when the edit operation ends.
procedure TForm1.G2antt1EditClose(ASender: TObject; );
begin
	with G2antt1 do
	begin
		with Items do
		begin
			ClearCellBackColor(OleVariant(FocusItem),OleVariant(G2antt1.FocusColumnIndex));
		end;
	end
end;

// EditOpen event - Occurs when the edit operation starts.
procedure TForm1.G2antt1EditOpen(ASender: TObject; );
begin
	with G2antt1 do
	begin
		with Items do
		begin
			CellBackColor[OleVariant(FocusItem),OleVariant(G2antt1.FocusColumnIndex)] := $ff;
		end;
		with Items do
		begin
			CellValue[OleVariant(FocusItem),OleVariant(G2antt1.FocusColumnIndex)] := G2antt1.Items.CellValue[OleVariant(G2antt1.Items.FocusItem),OleVariant(G2antt1.FocusColumnIndex)];
		end;
	end
end;

with G2antt1 do
begin
	FullRowSelect := EXG2ANTTLib_TLB.exColumnSel;
	(IUnknown(Columns.Add('C1')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.EditType;
	(IUnknown(Columns.Add('C2')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.EditType;
	with Items do
	begin
		CellValue[OleVariant(AddItem('v1')),OleVariant(1)] := 'v2';
		CellValue[OleVariant(AddItem('v3')),OleVariant(1)] := 'v4';
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	CauseValidateValue := EXG2ANTTLib_TLB.exValidateCell;
	FullRowSelect := EXG2ANTTLib_TLB.exColumnSel;
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	with (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DateType;
		Mask := '!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>!,warning=Invalid character!,' + 
	'select=4,overtype';
	end;
	with Items do
	begin
		AddItem(Null);
		AddItem('1/1/2001');
		AddItem(Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Columns.Add('DropDown');
	with Items do
	begin
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.RightAlignment;
		end;
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.CenterAlignment;
		end;
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.LeftAlignment;
		end;
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20);
		end;
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20 Or Integer(EXG2ANTTLib_TLB.CenterAlignment));
		end;
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20 Or Integer(EXG2ANTTLib_TLB.RightAlignment));
		end;
	end;
end

with G2antt1 do
begin
	(IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.DateType;
	with Items do
	begin
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.AlignmentEnum($20);
		end;
		with CellEditor[OleVariant(AddItem('1/1/2001')),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			DropDownAlignment := EXG2ANTTLib_TLB.exHOutside;
		end;
		AddItem('1/1/2001');
	end;
end

with G2antt1 do
begin
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	FullRowSelect := EXG2ANTTLib_TLB.exColumnSel;
	with (IUnknown(Columns.Add('Float')) as EXG2ANTTLib_TLB.Column) do
	begin
		with Editor do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := ';;;float,digits=0,grouping=,invalid=empty,warning=invalid character';
		end;
	end;
	Items.AddItem(OleVariant(192278));
	Items.AddItem(OleVariant(1000));
end

with G2antt1 do
begin
	BeginUpdate();
	CauseValidateValue := EXG2ANTTLib_TLB.exValidateCell;
	FullRowSelect := EXG2ANTTLib_TLB.exColumnSel;
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	Columns.Add('Date');
	Columns.Add('Mask');
	with Items do
	begin
		h := AddItem('1/1/2001');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>' + 
	'!,validateas=1';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>!,warning=Invalid character!,se' + 
	'lect=4,overtype';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>!,warning=Invalid character!,sel' + 
	'ect=4,overtype';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b' + 
	'>!,validateas=1';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%ma' + 
	'sk%>''</b>!,warning=Invalid character!,select=4,leading= ';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		FormatCell[OleVariant(h),OleVariant(0)] := 'len(value) ? shortdateF(value) : ``';
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>!,warning=Invalid character!,se' + 
	'lect=4,overtype,leading';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		FormatCell[OleVariant(h),OleVariant(0)] := 'len(value) ? shortdateF(value) : ``';
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>!,warning=Invalid character!,se' + 
	'lect=4,overtype,leading';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		FormatCell[OleVariant(h),OleVariant(0)] := 'len(value) ? shortdateF(value) : ``';
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>!,warning=Invalid character!,se' + 
	'lect=4,overtype';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
		h := AddItem('1/1/2001');
		FormatCell[OleVariant(h),OleVariant(0)] := 'len(value) ? shortdateF(value) : ``';
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>''<%mask%>''</b>!,warning=Invalid character!,sel' + 
	'ect=1,overtype';
		end;
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(CellEditor[OleVariant(h),OleVariant(0)].Mask);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('Float')) as EXG2ANTTLib_TLB.Column) do
	begin
		FormatColumn := 'value format `0`';
		with Editor do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := ';;;float,digits=0';
		end;
	end;
	Items.AddItem(OleVariant(192278));
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('Float')) as EXG2ANTTLib_TLB.Column) do
	begin
		FormatColumn := 'value format ``';
		with Editor do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := ';;;float';
		end;
	end;
	Items.AddItem(OleVariant(192278));
end

with G2antt1 do
begin
	CauseValidateValue := EXG2ANTTLib_TLB.exValidateCell;
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	FullRowSelect := EXG2ANTTLib_TLB.exColumnSel;
	(IUnknown(Columns.Add('Phone')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.MaskType;
	with Items do
	begin
		h := AddItem(Null);
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := '!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn''t appropriate for the inpu' + 
	't mask <b>''<%mask%>''</b> specified for this field.';
		end;
		h := AddItem('0123');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := '!(999) 000 0000;2;;select=4';
		end;
		h := AddItem('0123');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := '`Phone: `!(999) 000-0000';
		end;
		h := AddItem('(074) 876-1222');
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.MaskType;
			Mask := '!(999) 000-0000;0';
		end;
	end;
end

with G2antt1 do
begin
	(IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.ColorType;
	with Items do
	begin
		AddItem(OleVariant(255));
		h := AddItem(OleVariant(255));
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.ColorType;
			Mask := '`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0';
		end;
		h := AddItem(OleVariant(255));
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.ColorType;
			Mask := '`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!';
		end;
		h := AddItem(OleVariant(255));
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.ColorType;
			Mask := '`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!';
		end;
		h := AddItem(OleVariant(255));
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.ColorType;
			Mask := 'R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!';
		end;
		h := AddItem(OleVariant(255));
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.ColorType;
			Mask := '`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!';
		end;
		h := AddItem(OleVariant(255));
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.ColorType;
			Mask := '`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!';
		end;
		h := AddItem(OleVariant(255));
		with CellEditor[OleVariant(h),OleVariant(0)] do
		begin
			EditType := EXG2ANTTLib_TLB.ColorType;
			Mask := '`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!';
		end;
	end;
end

with G2antt1 do
begin
	Columns.Add('Task');
	with Chart.Bars do
	begin
		Copy('Task','STask').Color := $ff;
		Add('Task:STask').Shortcut := 'TS';
	end;
	with Chart do
	begin
		PaneWidth[False] := 96;
		FirstVisibleDate := '1/1/2001';
		NonworkingDaysColor := Bars.Item['STask'].Color;
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'TS','1/2/2001','1/16/2001',Null,Null);
	end;
end

// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TForm1.G2antt1AddItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		Items.CellMerge[OleVariant(Item),OleVariant(0)] := OleVariant(1);
	end
end;

with G2antt1 do
begin
	MarkSearchColumn := False;
	TreeColumnIndex := -1;
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	(IUnknown(Columns.Add('C1')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellSingleLine] := OleVariant(False);
	Columns.Add('C2');
	Columns.Add('C3');
	with Items do
	begin
		AddItem('This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.');
		AddItem('This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.');
	end;
end

// CellStateChanged event - Fired after cell's state has been changed.
procedure TForm1.G2antt1CellStateChanged(ASender: TObject; Item : HITEM;ColIndex : Integer);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			ExpandItem[Item] := False;
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	with Columns do
	begin
		with (IUnknown(Add('')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
			AllowSizing := False;
			Width := 18;
			PartialCheck := True;
		end;
		Add('Tasks');
	end;
	ShowFocusRect := False;
	HasButtons := EXG2ANTTLib_TLB.exNoButtons;
	TreeColumnIndex := 1;
	Indent := 14;
	ExpandOnDblClick := False;
	LinesAtRoot := EXG2ANTTLib_TLB.exNoLinesAtRoot;
	with Items do
	begin
		h := AddItem('');
		CellState[OleVariant(h),OleVariant(0)] := 1;
		CellValue[OleVariant(h),OleVariant(1)] := 'Project';
		hChild := InsertItem(h,Null,'');
		CellValue[OleVariant(hChild),OleVariant(1)] := 'Task 1';
		hChild := InsertItem(h,Null,'');
		CellValue[OleVariant(hChild),OleVariant(1)] := 'Task 2';
		ExpandItem[h] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Columns do
	begin
		with (IUnknown(Add('')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
			AllowSizing := False;
			Width := 18;
			PartialCheck := True;
		end;
		Add('Tasks');
	end;
	ShowFocusRect := False;
	HasButtons := EXG2ANTTLib_TLB.exNoButtons;
	TreeColumnIndex := 1;
	Indent := 14;
	ExpandOnDblClick := False;
	LinesAtRoot := EXG2ANTTLib_TLB.exNoLinesAtRoot;
	with Items do
	begin
		h := AddItem('');
		CellState[OleVariant(h),OleVariant(0)] := 1;
		CellValue[OleVariant(h),OleVariant(1)] := 'Project';
		hChild := InsertItem(h,Null,'');
		CellValue[OleVariant(hChild),OleVariant(1)] := 'Task 1';
		hChild := InsertItem(h,Null,'');
		CellValue[OleVariant(hChild),OleVariant(1)] := 'Task 2';
		ExpandItem[h] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	with Chart do
	begin
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
		FirstVisibleDate := '1/1/2002';
		Bars.Item['Task'].OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStack);
		PaneWidth[False] := 128;
	end;
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Tasks');
		AddBar(h,'Task','1/2/2002','1/7/2002','A',Null);
		AddBar(h,'Task','1/3/2002','1/8/2002','B',Null);
		AddBar(h,'Task','1/4/2002','1/9/2002','C',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		AddLink('AB',h,'A',h,'B');
		AddLink('BC',h,'B',h,'C');
	end;
	EndUpdate();
end

// Change event - Occurs when the user changes the cell's content.
procedure TForm1.G2antt1Change(ASender: TObject; Item : HITEM;ColIndex : Integer;var NewValue : OleVariant);
begin
	with G2antt1 do
	begin
		OutputDebugString( 'NewValue:' );
		OutputDebugString( NewValue );
		OutputDebugString( 'EditingValue:' );
		OutputDebugString( EditingText );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	(IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.DateType;
	Items.AddItem('1/1/2001');
	EndUpdate();
end

with G2antt1 do
begin
	ShowLockedItems := True;
	DrawGridLines := EXG2ANTTLib_TLB.exVLines;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exBottom] := 1;
		h := LockedItem[EXG2ANTTLib_TLB.exBottom,0];
		ItemBackColor[h] := $808080;
		ItemForeColor[h] := $ffffff;
		CellValue[OleVariant(h),OleVariant(0)] := 'footer c1';
		CellValue[OleVariant(h),OleVariant(1)] := 'footer c2';
		CellValue[OleVariant(AddItem('cell')),OleVariant(1)] := 'cell';
	end;
end

with G2antt1 do
begin
	ShowLockedItems := True;
	DrawGridLines := EXG2ANTTLib_TLB.exVLines;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exTop] := 1;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,0];
		ItemBackColor[h] := $808080;
		ItemForeColor[h] := $ffffff;
		CellValue[OleVariant(h),OleVariant(0)] := 'footer c1';
		CellValue[OleVariant(h),OleVariant(1)] := 'footer c2';
		CellValue[OleVariant(AddItem('cell')),OleVariant(1)] := 'cell';
	end;
end

with G2antt1 do
begin
	ColumnAutoResize := True;
	Columns.Add('Sizable');
	with (IUnknown(Columns.Add('F')) as EXG2ANTTLib_TLB.Column) do
	begin
		AllowSizing := False;
		Width := 16;
	end;
end

with G2antt1 do
begin
	SortBarVisible := True;
	with Columns do
	begin
		Add(0);
		Add(1);
		Add(2);
		Add(3);
		Add(4);
	end;
	Layout := 'multiplesort="C3:1 C4:2";singlesort="C2:1"';
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		HistogramVisible := True;
		HistogramHeight := 32;
		Bars.Item['Task'].HistogramPattern := EXG2ANTTLib_TLB.exPatternBDiagonal;
		PaneWidth[False] := 128;
	end;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
		h := AddItem('Item 2');
		AddBar(h,'Task','1/3/2001','1/7/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		AddBar(AddItem('Item 3'),'Task','1/6/2001','1/9/2001',Null,Null);
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
	end;
	Columns.Add('Tasks');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		h := AddItem('Task 2');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		h := AddItem('Task 3');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(16777216);
		h := AddItem('Task 4');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(16777471);
		h := AddItem('Task 5');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(33619967);
	end;
	EndUpdate();
end

// Change event - Occurs when the user changes the cell's content.
procedure TForm1.G2antt1Change(ASender: TObject; Item : HITEM;ColIndex : Integer;var NewValue : OleVariant);
begin
	with G2antt1 do
	begin
		OutputDebugString( 'Prev Value ' );
		OutputDebugString( Items.CellValue[OleVariant(Item),OleVariant(ColIndex)] );
		OutputDebugString( 'Check and Update the NewValue' );
		OutputDebugString( NewValue );
		NewValue := '1/1/2001';
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column) do
	begin
		FormatColumn := 'day(value) + `/` + month(value) + `/` + year(value)';
		with Editor do
		begin
			EditType := EXG2ANTTLib_TLB.DateType;
			Mask := '{1,12}\/{1,31}\/{1,2099}';
		end;
	end;
	Items.AddItem('1/1/2001');
	EndUpdate();
end

with G2antt1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	VisualAppearance.Add(1,'C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn');
	Background[EXG2ANTTLib_TLB.exToolTipAppearance] := $1000000;
	(IUnknown(Columns.Add('tootip')) as EXG2ANTTLib_TLB.Column).ToolTip := 'this is a tooltip assigned to a column';
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.EditType;
		Numeric := Integer(EXG2ANTTLib_TLB.exDisableSigns) Or Integer(EXG2ANTTLib_TLB.exFloatInteger);
	end;
	Items.AddItem(OleVariant(1.22));
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.EditType;
		Numeric := Integer(EXG2ANTTLib_TLB.exDisablePlus) Or Integer(EXG2ANTTLib_TLB.exFloatInteger);
	end;
	Items.AddItem(OleVariant(1.22));
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.EditType;
		Numeric := EXG2ANTTLib_TLB.exFloatInteger;
	end;
	Items.AddItem(OleVariant(1.22));
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.EditType;
		Numeric := EXG2ANTTLib_TLB.NumericEnum($fc Or Integer(EXG2ANTTLib_TLB.exDisableSigns) Or Integer(EXG2ANTTLib_TLB.exFloatInteger) Or Integer(EXG2ANTTLib_TLB.exFloat));
	end;
	Items.AddItem(OleVariant(1));
end

with G2antt1 do
begin
	with Columns do
	begin
		Add('Value');
		with (IUnknown(Add('CellSingleLine = False')) as EXG2ANTTLib_TLB.Column) do
		begin
			ComputedField := '%0';
			Def[EXG2ANTTLib_TLB.exCellSingleLine] := OleVariant(False);
		end;
		with (IUnknown(Add('FormatColumn/replace CRLF')) as EXG2ANTTLib_TLB.Column) do
		begin
			ComputedField := '%0';
			FormatColumn := 'value replace `\r\n` with ``';
		end;
		with (IUnknown(Add('FormatColumn/replace TAB,CRLF')) as EXG2ANTTLib_TLB.Column) do
		begin
			ComputedField := '%0';
			FormatColumn := '(value replace `\t` with ``) replace `\r\n` with ``';
		end;
	end;
	with Items do
	begin
		AddItem('a\ta\r\nb\tb');
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	Columns.Add('Task');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 48;
		NonworkingDays := 0;
		LinksStyle := EXG2ANTTLib_TLB.exLinkSolid;
		ShowLinksColor[Integer(EXG2ANTTLib_TLB.exUpdateColorLinksOnly) Or Integer(EXG2ANTTLib_TLB.exShowLinksStartFrom)] := $ff;
		ShowLinksColor[Integer(EXG2ANTTLib_TLB.exUpdateColorLinksOnly) Or Integer(EXG2ANTTLib_TLB.exShowLinksEndTo)] := $ff00;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/4/2001','',Null);
		ItemBar[h2,'',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
		AddLink('L1',h1,'',h2,'');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/4/2001','',Null);
		AddLink('L2',h2,'',h3,'');
		SchedulePDM(0,'');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '9/19/2006';
		PaneWidth[False] := 64;
		NonworkingDaysPattern := EXG2ANTTLib_TLB.exPatternSolid;
		ShowLinks := Integer(EXG2ANTTLib_TLB.exShowLinksFront) Or Integer(EXG2ANTTLib_TLB.exShowExtendedLinks);
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','9/20/2006','9/22/2006',Null,Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','9/26/2006','9/28/2006',Null,Null);
		ItemBar[h2,'',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
		AddLink('L1',h1,'',h2,'');
		Link['L1',EXG2ANTTLib_TLB.exLinkText] := 'L1';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	Columns.Add('Task');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 48;
		NonworkingDays := 0;
		LinksStyle := EXG2ANTTLib_TLB.exLinkSolid;
		ShowLinks := EXG2ANTTLib_TLB.exShowExtendedLinks;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/4/2001','',Null);
		AddLink('L1',h1,'',h2,'');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/4/2001','',Null);
		AddLink('L2',h3,'',h2,'');
		SchedulePDM(0,'');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
	end;
	with Items do
	begin
		hSummary := AddItem('Task');
		AddBar(hSummary,'Task','1/2/2001','1/5/2001','K1',Null);
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K1',Null);
		AddBar(InsertItem(hTask,Null,'Task A.1'),'Task','1/3/2001','1/5/2001','K11',Null);
		AddBar(InsertItem(hTask,Null,'Task A.2'),'Task','1/3/2001','1/5/2001','K12',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K2',Null);
		hTask := InsertItem(hTask,Null,'Task B.1');
		AddBar(hTask,'Task','1/5/2001','1/9/2001','K21',Null);
		ExpandItem[0] := True;
		OutputDebugString( 'Count: ' );
		OutputDebugString( ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarsCount] );
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
		Bars.Copy('Task','CountTask').Color := $ff00;
	end;
	with Items do
	begin
		hSummary := AddItem('Project');
		ItemBold[hSummary] := True;
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'CountTask','1/2/2001','1/5/2001','K1',Null);
		AddBar(InsertItem(hTask,Null,'Task A.1'),'CountTask','1/3/2001','1/5/2001','K11',Null);
		AddBar(InsertItem(hTask,Null,'Task A.2'),'CountTask','1/3/2001','1/5/2001','K12',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'CountTask','1/2/2001','1/5/2001','K2',Null);
		hTask := InsertItem(hTask,Null,'Task B.1');
		AddBar(hTask,'CountTask','1/5/2001','1/9/2001','K21',Null);
		ExpandItem[0] := True;
		DefaultItem := ItemByIndex[0];
		OutputDebugString( 'Count: ' );
		OutputDebugString( ItemBar[-3,'<*>',EXG2ANTTLib_TLB.exBarsCount] );
		DefaultItem := 0;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
		Bars.Copy('Task','CountTask').Color := $ff00;
	end;
	with Items do
	begin
		hSummary := AddItem('Project');
		ItemBold[hSummary] := True;
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K1',Null);
		AddBar(InsertItem(hTask,Null,'Task A.1'),'CountTask','1/3/2001','1/5/2001','K11',Null);
		AddBar(InsertItem(hTask,Null,'Task A.2'),'CountTask','1/3/2001','1/5/2001','K12',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K2',Null);
		hTask := InsertItem(hTask,Null,'Task B.1');
		AddBar(hTask,'CountTask','1/5/2001','1/9/2001','K21',Null);
		ExpandItem[0] := True;
		DefaultItem := ItemByIndex[0];
		OutputDebugString( 'Count: ' );
		OutputDebugString( ItemBar[-2,'<*>',EXG2ANTTLib_TLB.exBarsCount] );
		DefaultItem := 0;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
		Bars.Copy('Task','CountTask').Color := $ff00;
	end;
	with Items do
	begin
		hSummary := AddItem('Project');
		ItemBold[hSummary] := True;
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'CountTask','1/2/2001','1/5/2001','K1',Null);
		AddBar(InsertItem(hTask,Null,'Task A.1'),'Task','1/3/2001','1/5/2001','K11',Null);
		AddBar(InsertItem(hTask,Null,'Task A.2'),'Task','1/3/2001','1/5/2001','K12',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'CountTask','1/2/2001','1/5/2001','K2',Null);
		hTask := InsertItem(hTask,Null,'Task B.1');
		AddBar(hTask,'Task','1/5/2001','1/9/2001','K21',Null);
		ExpandItem[0] := True;
		DefaultItem := ItemByIndex[0];
		OutputDebugString( 'Count: ' );
		OutputDebugString( ItemBar[-1,'<*>',EXG2ANTTLib_TLB.exBarsCount] );
		DefaultItem := 0;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
	end;
	with Items do
	begin
		hSummary := AddItem('Summary');
		AddBar(hSummary,'Summary','1/2/2001','1/2/2001','',Null);
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K1',Null);
		hTask := InsertItem(hTask,Null,'Task A.1');
		AddBar(hTask,'Task','1/3/2001','1/5/2001','K11',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K2',Null);
		hTask := InsertItem(hTask,Null,'Task B.1');
		AddBar(hTask,'Task','1/5/2001','1/9/2001','K21',Null);
		DefineSummaryBars(hSummary,'',-3,'<K*>');
		ExpandItem[0] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
	end;
	with Items do
	begin
		hSummary := AddItem('Summary');
		AddBar(hSummary,'Summary','1/2/2001','1/2/2001','',Null);
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'1Task','1/2/2001','1/5/2001','K1',Null);
		hTask := InsertItem(hTask,Null,'Task A.1');
		AddBar(hTask,'Task','1/3/2001','1/5/2001','K11',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'1Task','1/2/2001','1/5/2001','K2',Null);
		hTask := InsertItem(hTask,Null,'Task B.1');
		AddBar(hTask,'Task','1/5/2001','1/9/2001','K21',Null);
		DefineSummaryBars(hSummary,'',-2,'<K*>');
		ExpandItem[0] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
	end;
	with Items do
	begin
		hSummary := AddItem('Summary');
		AddBar(hSummary,'Summary','1/2/2001','1/2/2001','',Null);
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K1',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'Task','1/4/2001','1/8/2001','K2',Null);
		ExpandItem[hSummary] := True;
		DefineSummaryBars(hSummary,'',-1,'<*>');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
	end;
	with Items do
	begin
		hSummary := AddItem('Summary');
		AddBar(hSummary,'Summary','1/2/2001','1/2/2001','summary',Null);
		AddBar(AddItem('Task A'),'Task','1/2/2001','1/5/2001','K1',Null);
		AddBar(AddItem('Task B'),'Task','1/6/2001','1/9/2001','K2',Null);
		AddBar(AddItem('Task C'),'Task','1/11/2001','1/14/2001','K3',Null);
		DefineSummaryBars(hSummary,'summary',0,'<K*>');
	end;
	EndUpdate();
end

// DblClick event - Occurs when the user dblclk the left mouse button over an object.
procedure TForm1.G2antt1DblClick(ASender: TObject; Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			h := CellChecked[1234];
			CellHasCheckBox[OleVariant(0),OleVariant(h)] := True;
			CellState[OleVariant(0),OleVariant(h)] := 0;
			CellHasCheckBox[OleVariant(0),OleVariant(h)] := False;
		end;
	end
end;

// SelectionChanged event - Fired after a new item has been selected.
procedure TForm1.G2antt1SelectionChanged(ASender: TObject; );
begin
	with G2antt1 do
	begin
		with Items do
		begin
			CellState[OleVariant(FocusItem),OleVariant(0)] := 1;
		end;
	end
end;

with G2antt1 do
begin
	MarkSearchColumn := False;
	SelBackColor := RGB(255,255,128);
	SelForeColor := RGB(0,0,0);
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Radio 1');
		CellHasRadioButton[OleVariant(h),OleVariant(0)] := True;
		CellRadioGroup[OleVariant(h),OleVariant(0)] := 1234;
		h := AddItem('Radio 2');
		CellHasRadioButton[OleVariant(h),OleVariant(0)] := True;
		CellRadioGroup[OleVariant(h),OleVariant(0)] := 1234;
		CellState[OleVariant(h),OleVariant(0)] := 1;
		h := AddItem('Radio 3');
		CellHasRadioButton[OleVariant(h),OleVariant(0)] := True;
		CellRadioGroup[OleVariant(h),OleVariant(0)] := 1234;
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	TreeColumnIndex := -1;
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	HeaderHeight := 24;
	DefaultItemHeight := 24;
	with (IUnknown(Columns.Add('Image')) as EXG2ANTTLib_TLB.Column) do
	begin
		AllowSizing := False;
		Width := 32;
		HTMLCaption := '<img>1</img>';
		HeaderAlignment := EXG2ANTTLib_TLB.CenterAlignment;
		Alignment := EXG2ANTTLib_TLB.CenterAlignment;
		Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
	end;
	Columns.Add('Rest');
	with Items do
	begin
		AddItem('<img>1</img>');
		AddItem('<img>2</img>');
		AddItem('<img>3</img>');
	end;
	EndUpdate();
end

// BarResize event - Occurs when a bar is moved or resized.
procedure TForm1.G2antt1BarResize(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Refresh();
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('InterectBars');
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		with Bars.Item['Task'] do
		begin
			OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsIntersect;
			Overlaid[EXG2ANTTLib_TLB.exOverlaidBarsIntersect] := 'ERROR';
		end;
		with Bars.Add('ERROR') do
		begin
			Color := $ff;
			Pattern := EXG2ANTTLib_TLB.exPatternSolid;
			Height := 7;
		end;
	end;
	with Items do
	begin
		h := AddItem('');
		AddBar(h,'Task','1/2/2001','1/4/2001','A','A');
		AddBar(h,'Task','1/3/2001','1/5/2001','B','B');
		CellValue[OleVariant(h),OleVariant(0)] := OleVariant(IntersectBars[h,'A',h,'B']);
		h := AddItem('');
		AddBar(h,'Task','1/6/2001','1/9/2001','A','A');
		AddBar(h,'Task','1/10/2001','1/13/2001','B','B');
		CellValue[OleVariant(h),OleVariant(0)] := OleVariant(IntersectBars[h,'A',h,'B']);
		h := AddItem('');
		AddBar(h,'Task','1/6/2001','1/9/2001','B','B');
		AddBar(h,'Task','1/10/2001','1/13/2001','A','A');
		CellValue[OleVariant(h),OleVariant(0)] := OleVariant(IntersectBars[h,'A',h,'B']);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	HeaderHeight := 32;
	with Columns do
	begin
		with (IUnknown(Add('ID')) as EXG2ANTTLib_TLB.Column) do
		begin
			HTMLCaption := '<font ;16>ID';
			Width := 32;
			AllowSizing := False;
		end;
		(IUnknown(Add('Task')) as EXG2ANTTLib_TLB.Column).HTMLCaption := '<font ;16>Task';
	end;
	FocusColumnIndex := 1;
	ShowFocusRect := False;
	Chart.PaneWidth[True] := 0;
	with Items do
	begin
		CellValue[OleVariant(AddItem(OleVariant(1))),OleVariant(1)] := 'Task A';
		CellValue[OleVariant(AddItem(OleVariant(2))),OleVariant(1)] := 'Task B';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Columns do
	begin
		with (IUnknown(Add('ID')) as EXG2ANTTLib_TLB.Column) do
		begin
			FormatColumn := '1 index ''''';
			Width := 32;
			AllowSizing := False;
		end;
		(IUnknown(Add('Task')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.EditType;
	end;
	FocusColumnIndex := 1;
	ShowFocusRect := False;
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	G2antt1.Template := 'Chart.Bars("Task"){Def(3) = "<%=%C1%>";Def(4)=18}';
	EndUpdate();
end

with G2antt1 do
begin
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
	end;
	with Items do
	begin
		hSummary := AddItem('Summary');
		AddBar(hSummary,'Summary','1/2/2001','1/2/2001',Null,Null);
		hTask := AddItem('Task A');
		AddBar(hTask,'Task','1/2/2001','1/5/2001',Null,Null);
		DefineSummaryBars(hSummary,'',hTask,'');
		hTask := AddItem('Task B');
		AddBar(hTask,'Task','1/4/2001','1/8/2001',Null,Null);
		DefineSummaryBars(hSummary,'',hTask,'');
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	with Chart do
	begin
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
		NonworkingDays := 0;
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
		Bars.Item['Task'].Pattern := EXG2ANTTLib_TLB.exPatternSolid;
	end;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Solid A');
		AddBar(h,'Task','1/2/2001','1/4/2001','A',Null);
		AddBar(h,'Task','1/5/2001','1/7/2001','B',Null);
		ItemBar[h,'B',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		AddBar(h,'Task','1/8/2001','1/10/2001','C',Null);
		ItemBar[h,'C',EXG2ANTTLib_TLB.exBarColor] := OleVariant(65280);
		h := AddItem('Solid B');
		AddBar(h,'Task','1/2/2001','1/4/2001','A',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarBackColor] := OleVariant(255);
		AddBar(h,'Task','1/5/2001','1/7/2001','B',Null);
		ItemBar[h,'B',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		ItemBar[h,'B',EXG2ANTTLib_TLB.exBarBackColor] := OleVariant(65280);
		AddBar(h,'Task','1/8/2001','1/10/2001','C',Null);
		ItemBar[h,'C',EXG2ANTTLib_TLB.exBarColor] := OleVariant(16711680);
		ItemBar[h,'C',EXG2ANTTLib_TLB.exBarBackColor] := OleVariant(16711935);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZai' + 
	'+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAxd' + 
	'DYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSiz' + 
	'jSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mEW' + 
	'BSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=');
		Add(39,'CP:1 -1 -1 0 0');
		Add(40,'gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5Pj' + 
	'aLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIxT' + 
	'oOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDxP' + 
	'iWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==');
		Add(41,'gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoRi' + 
	'YMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAED' + 
	'CbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQX' + 
	'hAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+Y' + 
	'RoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThTg' + 
	'8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIYw' + 
	'3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbDS' + 
	'WI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFpF' + 
	'lCFAEICA');
		Add(42,'gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5ai' + 
	'+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTIW' + 
	'BABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIboz' + 
	'iiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAoJ' + 
	'oGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRCF' + 
	'aAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg');
	end;
	Appearance := EXG2ANTTLib_TLB.AppearanceEnum($28000000);
	BackColor := RGB(255,255,255);
	BackColorLevelHeader := RGB(255,255,255);
	BackColorHeader := $27000000;
	SelBackColor := RGB(0,0,0);
	SelForeColor := RGB(255,255,255);
	with Chart do
	begin
		BackColorLevelHeader := $27000000;
		BackColor := $ffffff;
		Bars.Item['Task'].Color := $2a000000;
	end;
	FilterBarBackColor := $1000000;
	Background[EXG2ANTTLib_TLB.exCursorHoverColumn] := $29000000;
	Background[EXG2ANTTLib_TLB.exToolTipAppearance] := $1000000;
	Background[EXG2ANTTLib_TLB.exSplitBar] := $1000000;
	EndUpdate();
end

with G2antt1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXG2ANTTLib_TLB.exHeaderFilterBarButton] := $1000000;
	Background[EXG2ANTTLib_TLB.exSplitBar] := $1ff0000;
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 64;
	end;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Item 1');
		AddBar(h,'Task','1/2/2001','1/4/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarCaption] := '<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
	end;
end

with G2antt1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
	end;
	BackColorHeader := $1000000;
	Background[EXG2ANTTLib_TLB.exCursorHoverColumn] := $12d86ff;
end

with G2antt1 do
begin
	ColumnAutoResize := False;
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXG2ANTTLib_TLB.Column).Visible := False;
	end;
	VisualAppearance.Add(2,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(3,'c:\exontrol\images\pushed.ebn');
	Background[EXG2ANTTLib_TLB.exColumnsFloatAppearance] := $2000000;
	Background[EXG2ANTTLib_TLB.exColumnsFloatBackColor] := $3000000;
	Background[EXG2ANTTLib_TLB.exColumnsFloatCaptionBackColor] := $f0f5f6;
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	ColumnAutoResize := False;
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXG2ANTTLib_TLB.Column).Visible := False;
	end;
	VisualAppearance.Add(3,'c:\exontrol\images\pushed.ebn');
	Background[EXG2ANTTLib_TLB.exColumnsFloatBackColor] := $3000000;
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	VisualAppearance.Add(2,'c:\exontrol\images\normal.ebn');
	Background[EXG2ANTTLib_TLB.exColumnsFloatAppearance] := $2000000;
	Background[EXG2ANTTLib_TLB.exColumnsFloatBackColor] := $f0f5f6;
	Background[EXG2ANTTLib_TLB.exColumnsFloatCaptionBackColor] := $f0f5f6;
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	ColumnAutoResize := False;
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXG2ANTTLib_TLB.Column).Visible := False;
	end;
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	ColumnAutoResize := False;
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXG2ANTTLib_TLB.Column).Visible := False;
		with (IUnknown(Add('Column 3')) as EXG2ANTTLib_TLB.Column) do
		begin
			Visible := False;
			Enabled := False;
		end;
	end;
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	ColumnAutoResize := False;
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXG2ANTTLib_TLB.Column).Visible := False;
		with (IUnknown(Add('Column 3')) as EXG2ANTTLib_TLB.Column) do
		begin
			Visible := False;
			AllowDragging := False;
		end;
	end;
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	ColumnAutoResize := False;
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXG2ANTTLib_TLB.Column).Visible := False;
	end;
	Description[EXG2ANTTLib_TLB.exColumnsFloatBar] := 'Hidden Columns';
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	ColumnAutoResize := False;
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXG2ANTTLib_TLB.Column).Visible := False;
	end;
	ColumnsFloatBarVisible := EXG2ANTTLib_TLB.exColumnsFloatBarVisibleIncludeHiddenColumns;
end

with G2antt1 do
begin
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
	end;
	Background[EXG2ANTTLib_TLB.exCursorHoverColumn] := $ffffffff;
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Column');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
	end;
	Layout := 'Select="0";SingleSort="C0:2";Columns=1';
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Column');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
	end;
	Layout := 'gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQ' + 
	'Aqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0j' + 
	'E3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI=';
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	ColumnAutoResize := False;
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	with Columns do
	begin
		with (IUnknown(Add('C0')) as EXG2ANTTLib_TLB.Column) do
		begin
			ExpandColumns := '1,2';
			DisplayExpandButton := False;
		end;
		Add('C1');
		Add('C2');
		Add('C3');
		with (IUnknown(Add('C4')) as EXG2ANTTLib_TLB.Column) do
		begin
			ExpandColumns := '5,6';
			DisplayExpandButton := False;
		end;
		Add('C5');
		with (IUnknown(Add('C6')) as EXG2ANTTLib_TLB.Column) do
		begin
			ExpandColumns := '6,7';
			DisplayExpandButton := False;
		end;
		Add('C7');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	BackColorLevelHeader := RGB(240,240,240);
	with Columns do
	begin
		with (IUnknown(Add('Photo')) as EXG2ANTTLib_TLB.Column) do
		begin
			AllowSizing := False;
			Width := 32;
		end;
		Add('Personal Info');
		Add('Title');
		Add('Name');
		Add('First');
		Add('Last');
		Add('Address');
		Item['Personal Info'].ExpandColumns := '2,3';
		with Item['Name'] do
		begin
			ExpandColumns := '4,5';
			Expanded := False;
		end;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
		UnitWidth := 50;
		FirstVisibleDate := '1/1/2013';
		LevelCount := 2;
		Level[0].Label := OleVariant(4096);
		Level[1].Label := '<%h%>:<%nn%>';
		Level[1].Unit := EXG2ANTTLib_TLB.exMinute;
		Level[1].Count := 60;
		ResizeUnitScale := EXG2ANTTLib_TLB.exMinute;
		ResizeUnitCount := 15;
		AllowInsideZoom := True;
		with DefaultInsideZoomFormat do
		begin
			InsideCount := 5;
			InsideUnit := EXG2ANTTLib_TLB.exMinute;
			InsideLabel := '<%nn%>';
		end;
	end;
	with Items do
	begin
		AddItem('Item');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		Add('Default');
		with (IUnknown(Add('Format.1')) as EXG2ANTTLib_TLB.Column) do
		begin
			ComputedField := '%0';
			FormatColumn := 'dateF(value) replace `/` with `-`';
		end;
		with (IUnknown(Add('Format.2')) as EXG2ANTTLib_TLB.Column) do
		begin
			ComputedField := '%0';
			Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
			FormatColumn := '`<b>`+ shortdate(value) + `</b> ` + timeF(value)';
		end;
		with (IUnknown(Add('Format.3')) as EXG2ANTTLib_TLB.Column) do
		begin
			ComputedField := '%0';
			Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
			FormatColumn := '` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(valu' + 
	'e) replace `/` with `-` )';
		end;
	end;
	with Items do
	begin
		AddItem('1/1/2001 10:00:00 AM');
		AddItem('1/2/2001 10:00:00 AM');
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	with Chart do
	begin
		FirstVisibleDate := '12/26/2000';
		PaneWidth[False] := 128;
	end;
	Columns.Add('Column');
	with Items do
	begin
		h1 := AddItem('Item 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A',Null);
		ItemBar[h1,'A',EXG2ANTTLib_TLB.exBarCaption] := 'text';
		h1 := AddItem('Item 2');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A',Null);
		ItemBar[h1,'A',EXG2ANTTLib_TLB.exBarCaption] := 'text outside associated with a bar';
		ItemBar[h1,'A',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
		h1 := AddItem('Item 3');
		AddBar(h1,'','1/2/2001','1/2/2001','A',Null);
		ItemBar[h1,'A',EXG2ANTTLib_TLB.exBarCaption] := 'text with no bar associated';
		h1 := AddItem('Item 4');
		AddBar(h1,'Task','1/2/2001','1/5/2001','A',Null);
		h1 := AddItem('Item 5');
		h1 := AddItem('Item 6');
		h1 := AddItem('Item 7');
		h1 := AddItem('Item 8');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A',Null);
		h1 := AddItem('Item 8');
		AddBar(h1,'Task','1/2/2001','1/6/2001','A',Null);
	end;
	with Chart.Notes do
	begin
		Add('1S',OleVariant(G2antt1.Items.ItemByIndex[3]),'A','<font ;6>Movable Note Inside the Bar').PartCanMove[EXG2ANTTLib_TLB.exNoteStart] := True;
		Add('AK',OleVariant(G2antt1.Items.ItemByIndex[6]),'1/6/2001','Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>');
		with Add('2S',OleVariant(G2antt1.Items.ItemByIndex[7]),'A','<font ;6>Fixed Note Left') do
		begin
			ShowLink := EXG2ANTTLib_TLB.exNoteLinkHidden;
			PartVOffset[EXG2ANTTLib_TLB.exNoteEnd] := 0;
			PartHOffset[EXG2ANTTLib_TLB.exNoteStart] := -32;
			PartShadow[EXG2ANTTLib_TLB.exNoteEnd] := False;
			PartBackColor[EXG2ANTTLib_TLB.exNoteEnd] := $ffff;
		end;
		with Add('3S',OleVariant(G2antt1.Items.ItemByIndex[8]),'A','Start<br><%mmm%> <%d%> <%yyyy%>') do
		begin
			PartCanMove[EXG2ANTTLib_TLB.exNoteEnd] := True;
			PartHOffset[EXG2ANTTLib_TLB.exNoteEnd] := -64;
			LinkStyle := EXG2ANTTLib_TLB.exLinkDot;
			LinkWidth := 2;
			LinkColor := $ff0000;
		end;
		with Add('3F',OleVariant(G2antt1.Items.ItemByIndex[8]),'A','End<br><%mmm%> <%d%> <%yyyy%>') do
		begin
			RelativePosition := OleVariant(1);
			PartCanMove[EXG2ANTTLib_TLB.exNoteEnd] := True;
			LinkStyle := EXG2ANTTLib_TLB.exLinkDot;
			LinkWidth := 2;
			LinkColor := $ff0000;
		end;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Debug := True;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		h1 := AddItem('Item 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A',Null);
		h2 := AddItem('Item 2');
		AddBar(h2,'Task','1/3/2001','1/5/2001','B',Null);
		h3 := AddItem('Item 3');
		AddBar(h3,'Task','1/5/2001','1/7/2001','A',Null);
		ItemBar[h3,'A',EXG2ANTTLib_TLB.exBarParent] := OleVariant(h1);
		OutputDebugString( 'The Bar A of H3 fails to change the parent to H1 as it has already a bar named A' );
		ItemBar[h3,'A',EXG2ANTTLib_TLB.exBarParent] := OleVariant(h2);
		OutputDebugString( 'The Bar A of H3 can be moved to H2, as it contains no bars with the key A' );
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjRL' + 
	'UXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/R' + 
	'pOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJc' + 
	'gMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkMZ' + 
	'JNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhAm' + 
	'UEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmiah' + 
	'Cg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItWE' + 
	'ZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB/' + 
	'BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnSM' + 
	'Q7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiCi' + 
	'IIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdBT' + 
	'AxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=');
		Add(2,'c:\exontrol\images\normal.ebn');
		Add(3,'CP:2 2 -4 2 4');
	end;
	with Chart do
	begin
		PaneWidth[False] := 256;
		LevelCount := 2;
		FirstVisibleDate := '1/1/2001';
	end;
	Columns.Add('Info');
	with Items do
	begin
		h := AddItem('Range Moveable Frame');
		AddBar(h,'Task','1/4/2001','1/8/2001','F',Null);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarToolTip] := 'This bar can be moved inside the displayed range.';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMinStart] := '1/2/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMaxEnd] := '1/18/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRange] := OleVariant(32);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRangeTransparent] := OleVariant(90);
		h := AddItem('Range Moveable Pattern');
		AddBar(h,'Task','1/6/2001','1/10/2001','F',Null);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarToolTip] := 'This bar can be moved inside the displayed range.';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMinStart] := '1/2/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMaxEnd] := '1/18/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRange] := OleVariant(1);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRangeTransparent] := OleVariant(90);
		h := AddItem('Range Moveable EBN Transparent');
		AddBar(h,'Task','1/8/2001','1/12/2001','F',Null);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarToolTip] := 'This bar can be moved inside the displayed range.';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMinStart] := '1/2/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMaxEnd] := '1/18/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRange] := OleVariant(16777216);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRangeTransparent] := OleVariant(50);
		h := AddItem('Range Moveable EBN Opaque 1');
		ItemHeight[h] := 24;
		AddBar(h,'Task','1/10/2001','1/14/2001','F',Null);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarToolTip] := 'This bar can be moved inside the displayed range.';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMinStart] := '1/2/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMaxEnd] := '1/18/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRange] := OleVariant(33554432);
		h := AddItem('Range Moveable EBN Opaque 2');
		ItemHeight[h] := 24;
		AddBar(h,'Task','1/12/2001','1/16/2001','F',Null);
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarToolTip] := 'This bar can be moved inside the displayed range.';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMinStart] := '1/2/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarMaxEnd] := '1/18/2001';
		ItemBar[h,'F',EXG2ANTTLib_TLB.exBarShowRange] := OleVariant(50331648);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYRD' + 
	'UMI6QjPVARVIkaxhCSSaKpIAIBEB');
	end;
	with Chart do
	begin
		PaneWidth[False] := 0;
		FirstVisibleDate := '1/1/2008';
		MarkTodayColor := BackColor;
		LevelCount := 2;
		AllowSelectDate := EXG2ANTTLib_TLB.exNoSelectDate;
		MarkSelectDateColor := $1000000;
		SelectLevel := 1;
		SelectDate['1/15/2008'] := True;
		SelectDate['1/18/2008'] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		PaneWidth[False] := 0;
		FirstVisibleDate := '1/1/2008';
		MarkTodayColor := BackColor;
		LevelCount := 2;
		AllowSelectDate := EXG2ANTTLib_TLB.exNoSelectDate;
		MarkSelectDateColor := $7fff0000;
		SelectLevel := 1;
		SelectDate['1/15/2008'] := True;
		SelectDate['1/18/2008'] := True;
	end;
	EndUpdate();
end

// FilterChange event - Occurs when the filter was changed.
procedure TForm1.G2antt1FilterChange(ASender: TObject; );
begin
	with G2antt1 do
	begin
		OutputDebugString( 'If negative, the filter is present, else not' );
		OutputDebugString( Items.VisibleItemCount );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXG2ANTTLib_TLB.exLinesAtRoot;
	TreeColumnIndex := -1;
	FilterInclude := EXG2ANTTLib_TLB.exMatchingItemsOnly;
	with (IUnknown(Columns.Add('Column')) as EXG2ANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXG2ANTTLib_TLB.exFilter;
		Filter := 'C1';
	end;
	with Items do
	begin
		h := AddItem('R1');
		InsertItem(h,Null,'C1');
		InsertItem(h,Null,'C2');
		ExpandItem[h] := True;
		h := AddItem('R2');
		InsertItem(h,Null,'C1');
		InsertItem(h,Null,'C2');
	end;
	ApplyFilter();
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXG2ANTTLib_TLB.exLinesAtRoot;
	TreeColumnIndex := -1;
	FilterInclude := EXG2ANTTLib_TLB.exMatchingItemsOnly;
	with (IUnknown(Columns.Add('Column')) as EXG2ANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXG2ANTTLib_TLB.exFilter;
		Filter := 'C1|C2';
	end;
	with Items do
	begin
		h := AddItem('R1');
		InsertItem(h,Null,'C1');
		InsertItem(h,Null,'C2');
		ExpandItem[h] := True;
		h := AddItem('R2');
		InsertItem(h,Null,'C1');
		InsertItem(h,Null,'C2');
	end;
	ApplyFilter();
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXG2ANTTLib_TLB.exLinesAtRoot;
	FilterInclude := EXG2ANTTLib_TLB.exMatchingItemsOnly;
	with (IUnknown(Columns.Add('Column')) as EXG2ANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXG2ANTTLib_TLB.exFilter;
		Filter := 'C1|C2';
	end;
	with Items do
	begin
		h := AddItem('R1');
		InsertItem(h,Null,'C1');
		InsertItem(h,Null,'C2');
		ExpandItem[h] := True;
		h := AddItem('R2');
		InsertItem(h,Null,'C1');
		InsertItem(h,Null,'C2');
	end;
	ApplyFilter();
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Pattern');
	with Chart do
	begin
		FirstWeekDay := EXG2ANTTLib_TLB.exMonday;
		FirstVisibleDate := '1/24/2008';
		PaneWidth[False] := 52;
		LevelCount := 2;
	end;
	with Items do
	begin
		AddItem('Default');
		ItemNonworkingUnits[AddItem('1/26/2008'),OleVariant(False)] := 'weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))';
		ItemNonworkingUnits[AddItem('1/27/2008'),OleVariant(False)] := 'weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)';
		ItemNonworkingUnits[AddItem('Sundays'),OleVariant(False)] := 'weekday(value) = 0';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	ScrollBars := EXG2ANTTLib_TLB.exDisableBoth;
	Chart.ToolTip := '';
	ScrollPartVisible[EXG2ANTTLib_TLB.exVScroll,EXG2ANTTLib_TLB.exExtentThumbPart] := True;
	ScrollPartVisible[EXG2ANTTLib_TLB.exHScroll,EXG2ANTTLib_TLB.exExtentThumbPart] := True;
	ScrollPartVisible[EXG2ANTTLib_TLB.exHChartScroll,EXG2ANTTLib_TLB.exExtentThumbPart] := True;
	ScrollWidth := 4;
	Background[EXG2ANTTLib_TLB.exVSBack] := $f0f0f0;
	Background[EXG2ANTTLib_TLB.exVSThumb] := $808080;
	ScrollHeight := 4;
	Background[EXG2ANTTLib_TLB.exHSBack] := Background[EXG2ANTTLib_TLB.exVSBack];
	Background[EXG2ANTTLib_TLB.exHSThumb] := Background[EXG2ANTTLib_TLB.exVSThumb];
	Background[EXG2ANTTLib_TLB.exScrollSizeGrip] := Background[EXG2ANTTLib_TLB.exVSBack];
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ' + 
	'8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQV' + 
	'TQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SAb' + 
	'n+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCcC' + 
	'ICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJDk' + 
	'kLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoHA' + 
	'QAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDgC' + 
	'YAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=');
		Add(2,'CP:1 -4 -4 4 4');
	end;
	Columns.Add('Task');
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	end;
	with Items do
	begin
		AddBar(AddItem('Task'),'Task','1/2/2001','1/5/2001','K1',Null);
		h := AddItem('Task/ EBN Frame');
		ItemHeight[h] := 32;
		AddBar(h,'Task','1/3/2001','1/15/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarFrameColor] := OleVariant(33554432);
		h := AddItem('Task/ EBN Frame');
		ItemHeight[h] := 32;
		AddBar(h,'Task','1/3/2001','1/15/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarFrameColor] := OleVariant(50331392);
		AddBar(AddItem('Task'),'Task','1/2/2001','1/5/2001','K3',Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Duration')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(513);
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarKey] := 'A';
		end;
		with (IUnknown(Add('Working')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(258);
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarKey] := 'A';
		end;
	end;
	Items.AllowCellValueToItemBar := True;
	with Chart do
	begin
		PaneWidth[False] := 256;
		FirstVisibleDate := '1/3/2002';
		LevelCount := 2;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/4/2002','1/8/2002','A',Null);
	end;
	EndUpdate();
end

// BarResize event - Occurs when a bar is moved or resized.
procedure TForm1.G2antt1BarResize(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Refresh();
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('<fgcolor=FF0000>Tasks > 2 days')) as EXG2ANTTLib_TLB.Column) do
	begin
		HTMLCaption := Caption;
	end;
	with (IUnknown(Columns.Add('PropertyBar')) as EXG2ANTTLib_TLB.Column) do
	begin
		Visible := False;
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarKey] := '';
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(513);
	end;
	Items.AllowCellValueToItemBar := True;
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
	end;
	with ConditionalFormats.Add('%1 > 2',Null) do
	begin
		ForeColor := $ff;
		Bold := True;
	end;
	SelBackColor := BackColor;
	SelForeColor := ForeColor;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','',Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/7/2001','',Null);
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','',Null);
	end;
	EndUpdate();
end

// BarResize event - Occurs when a bar is moved or resized.
procedure TForm1.G2antt1BarResize(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Items.SchedulePDM(Item,OleVariant(Key));
		Refresh();
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with (IUnknown(Columns.Add('PropertyBar')) as EXG2ANTTLib_TLB.Column) do
	begin
		Visible := False;
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarKey] := '';
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(269);
	end;
	Items.AllowCellValueToItemBar := True;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 48;
		NonworkingDays := 0;
	end;
	with ConditionalFormats.Add('%1 != 0',Null) do
	begin
		ForeColor := $ff;
		Bold := True;
	end;
	SelBackColor := BackColor;
	SelForeColor := ForeColor;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/4/2001','',Null);
		AddLink('L1',h1,'',h2,'');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/4/2001','',Null);
		AddLink('L2',h2,'',h3,'');
		h4 := AddItem('Task 3');
		AddBar(h4,'Task','1/2/2001','1/3/2001','',Null);
		AddLink('L3',h2,'',h4,'');
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMCriticalPathBarColor] := OleVariant(255);
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMCriticalPathLinkColor] := OleVariant(255);
		SchedulePDM(0,'');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		with Bars do
		begin
			AddShapeCorner(OleVariant(12345),OleVariant(1));
			with Copy('Milestone','Original') do
			begin
				StartShape := EXG2ANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXG2ANTTLib_TLB.exShapeIconVBar) Or Integer(EXG2ANTTLib_TLB.exShapeIconRight));
				StartColor := $ffffffff;
			end;
			with Copy('Milestone','Red') do
			begin
				StartShape := EXG2ANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXG2ANTTLib_TLB.exShapeIconVBar) Or Integer(EXG2ANTTLib_TLB.exShapeIconRight));
				StartColor := $ff;
			end;
			with Copy('Milestone','Green') do
			begin
				StartShape := EXG2ANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXG2ANTTLib_TLB.exShapeIconVBar) Or Integer(EXG2ANTTLib_TLB.exShapeIconRight));
				StartColor := $ff00;
			end;
		end;
	end;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Original'),'Original','1/2/2001','1/2/2001',Null,Null);
		AddBar(AddItem('Red'),'Red','1/2/2001','1/2/2001',Null,Null);
		AddBar(AddItem('Green'),'Green','1/2/2001','1/2/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Chart.FirstVisibleDate := '1/1/2001';
	with Chart.Bars do
	begin
		AddShapeCorner(OleVariant(12345),OleVariant(1));
		with Item['Milestone'] do
		begin
			StartShape := EXG2ANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXG2ANTTLib_TLB.exShapeIconVBar) Or Integer(EXG2ANTTLib_TLB.exShapeIconRight));
			StartColor := $ffffffff;
		end;
	end;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Milestone','1/2/2001','1/2/2001',Null,Null);
	end;
end

with G2antt1 do
begin
	Chart.PaneWidth[False] := 128;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Item');
		G2antt1.Chart.ItemBackColor[h] := $ff00;
		G2antt1.Items.ItemBackColor[h] := $ff00;
	end;
end

// BarResize event - Occurs when a bar is moved or resized.
procedure TForm1.G2antt1BarResize(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Items.SchedulePDM(Item,OleVariant(Key));
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 48;
		NonworkingDays := 0;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/4/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/4/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		h4 := AddItem('Task 3');
		AddBar(h4,'Task','1/2/2001','1/3/2001','K4',Null);
		AddLink('L3',h2,'K2',h4,'K4');
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMCriticalPathBarColor] := OleVariant(255);
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMCriticalPathLinkColor] := OleVariant(255);
		SchedulePDM(0,'K1');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstWeekDay := LocFirstWeekDay;
		MonthNames := LocMonthNames;
		WeekDays := LocWeekDays;
		AMPM := LocAMPM;
		LevelCount := 2;
		PaneWidth[False] := 0;
		UnitScale := EXG2ANTTLib_TLB.exDay;
		with Level[0] do
		begin
			Label := '<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>';
			Unit := EXG2ANTTLib_TLB.exWeek;
			ToolTip := Label;
		end;
		ToolTip := '<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>';
	end;
	Description[EXG2ANTTLib_TLB.exFilterBarDateMonths] := Chart.MonthNames;
	DefaultEditorOption[EXG2ANTTLib_TLB.exDateMonths] := OleVariant(Chart.MonthNames);
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstWeekDay := LocFirstWeekDay;
		MonthNames := LocMonthNames;
		WeekDays := LocWeekDays;
		AMPM := LocAMPM;
		LevelCount := 2;
		PaneWidth[False] := 0;
	end;
end

with G2antt1 do
begin
	with VisualAppearance do
	begin
		Add(1,'C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn');
		Add(2,'C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn');
		Add(3,'C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn');
		Add(4,'C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn');
		Add(5,'C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn');
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		Bars.Copy('Task','--').Color := $1000000;
		Bars.Copy('Task','-').Color := $2000000;
		Bars.Item['Task'].Color := $3000000;
		Bars.Copy('Task','+').Color := $4000000;
		Bars.Copy('Task','++').Color := $5000000;
	end;
	Columns.Add('Brightness');
	with Items do
	begin
		h := AddItem('0%');
		AddBar(h,'--','1/2/2001','1/4/2001','--',Null);
		AddBar(h,'-','1/5/2001','1/7/2001','-',Null);
		AddBar(h,'Task','1/8/2001','1/10/2001','',Null);
		AddBar(h,'+','1/11/2001','1/13/2001','+',Null);
		AddBar(h,'++','1/14/2001','1/16/2001','++',Null);
		h := AddItem('25%');
		AddBar(h,'--','1/2/2001','1/4/2001','--',Null);
		AddBar(h,'-','1/5/2001','1/7/2001','-',Null);
		AddBar(h,'Task','1/8/2001','1/10/2001','',Null);
		AddBar(h,'+','1/11/2001','1/13/2001','+',Null);
		AddBar(h,'++','1/14/2001','1/16/2001','++',Null);
		ItemBar[h,'<*>',EXG2ANTTLib_TLB.exBarTransparent] := OleVariant(25);
		h := AddItem('50%');
		AddBar(h,'--','1/2/2001','1/4/2001','--',Null);
		AddBar(h,'-','1/5/2001','1/7/2001','-',Null);
		AddBar(h,'Task','1/8/2001','1/10/2001','',Null);
		AddBar(h,'+','1/11/2001','1/13/2001','+',Null);
		AddBar(h,'++','1/14/2001','1/16/2001','++',Null);
		ItemBar[h,'<*>',EXG2ANTTLib_TLB.exBarTransparent] := OleVariant(50);
		h := AddItem('75%');
		AddBar(h,'--','1/2/2001','1/4/2001','--',Null);
		AddBar(h,'-','1/5/2001','1/7/2001','-',Null);
		AddBar(h,'Task','1/8/2001','1/10/2001','',Null);
		AddBar(h,'+','1/11/2001','1/13/2001','+',Null);
		AddBar(h,'++','1/14/2001','1/16/2001','++',Null);
		ItemBar[h,'<*>',EXG2ANTTLib_TLB.exBarTransparent] := OleVariant(75);
	end;
end

with G2antt1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Chart do
	begin
		Bars.Item['Task'].Color := $1000000;
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
	end;
	Columns.Add('Brightness');
	with Items do
	begin
		h := AddItem('0%');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		h := AddItem('25%');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarTransparent] := OleVariant(25);
		h := AddItem('50%');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarTransparent] := OleVariant(50);
		h := AddItem('75%');
		AddBar(h,'Task','1/2/2001','1/4/2001',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarTransparent] := OleVariant(75);
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	OnResizeControl := EXG2ANTTLib_TLB.exResizeChart;
	Columns.Add('Tasks');
	(IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column).Visible := False;
	(IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column).Visible := False;
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '9/18/2006';
		PaneWidth[False] := 64;
		ScrollRange[EXG2ANTTLib_TLB.exStartDate] := FirstVisibleDate;
		ScrollRange[EXG2ANTTLib_TLB.exEndDate] := '12/31/2006';
		MarkSelectDateColor := $7fff0000;
		SelectLevel := 1;
		SelectDate['9/19/2006'] := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exNoCreateBar;
		AllowLinkBars := False;
	end;
	with Items do
	begin
		h := AddItem('Project');
		CellValue[OleVariant(h),OleVariant(1)] := '9/21/2006';
		CellValue[OleVariant(h),OleVariant(2)] := '10/3/2006';
		AddBar(h,'Summary',CellValue[OleVariant(h),OleVariant(1)],CellValue[OleVariant(h),OleVariant(2)],'sum',Null);
		h1 := InsertItem(h,Null,'Task 1');
		CellValue[OleVariant(h1),OleVariant(1)] := CellValue[OleVariant(h),OleVariant(1)];
		CellValue[OleVariant(h1),OleVariant(2)] := '9/24/2006';
		AddBar(h1,'Task',CellValue[OleVariant(h1),OleVariant(1)],CellValue[OleVariant(h1),OleVariant(2)],'K1',Null);
		ItemBar[h1,'K1',EXG2ANTTLib_TLB.exBarMinStart] := '9/20/2006';
		h2 := InsertItem(h,Null,'Task 2');
		CellValue[OleVariant(h2),OleVariant(1)] := CellValue[OleVariant(h1),OleVariant(2)];
		CellValue[OleVariant(h2),OleVariant(2)] := '9/28/2006';
		AddBar(h2,'Unknown',CellValue[OleVariant(h2),OleVariant(1)],CellValue[OleVariant(h2),OleVariant(2)],'K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := InsertItem(h,Null,'Task 3');
		CellValue[OleVariant(h3),OleVariant(1)] := CellValue[OleVariant(h2),OleVariant(2)];
		CellValue[OleVariant(h3),OleVariant(2)] := CellValue[OleVariant(h),OleVariant(2)];
		AddBar(h3,'Task',CellValue[OleVariant(h3),OleVariant(1)],CellValue[OleVariant(h3),OleVariant(2)],'K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		GroupBars(h1,'K1',False,h2,'K2',True,OleVariant(31),'0;4');
		GroupBars(h2,'K2',False,h3,'K3',True,OleVariant(31),'0;2');
		DefineSummaryBars(h,'sum',h1,'K1');
		DefineSummaryBars(h,'sum',h2,'K2');
		DefineSummaryBars(h,'sum',h3,'K3');
		ExpandItem[h] := True;
		ItemBold[h] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	MarkSearchColumn := False;
	with Columns do
	begin
		with (IUnknown(Add('Car')) as EXG2ANTTLib_TLB.Column) do
		begin
			DisplayFilterButton := True;
			FilterType := EXG2ANTTLib_TLB.exFilter;
			Filter := 'MAZDA';
		end;
		with (IUnknown(Add('Equipment')) as EXG2ANTTLib_TLB.Column) do
		begin
			DisplayFilterButton := True;
			DisplayFilterPattern := False;
			CustomFilter := 'Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*';
			FilterType := EXG2ANTTLib_TLB.exPattern;
			Filter := 'AIR BAG';
		end;
	end;
	with Items do
	begin
		CellValue[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'Air Bag';
		CellValue[OleVariant(AddItem('Toyota')),OleVariant(1)] := 'Air Bag,Air condition';
		CellValue[OleVariant(AddItem('Ford')),OleVariant(1)] := 'Air condition';
		CellValue[OleVariant(AddItem('Nissan')),OleVariant(1)] := 'Air Bag,ABS,ESP';
		CellValue[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'Air Bag, ABS,ESP';
		CellValue[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'ABS,ESP';
	end;
	ApplyFilter();
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	MarkSearchColumn := False;
	with Columns do
	begin
		with (IUnknown(Add('Car')) as EXG2ANTTLib_TLB.Column) do
		begin
			DisplayFilterButton := True;
			FilterType := Integer(EXG2ANTTLib_TLB.exFilterDoCaseSensitive) Or Integer(EXG2ANTTLib_TLB.exFilter);
			Filter := 'Mazda';
		end;
		with (IUnknown(Add('Equipment')) as EXG2ANTTLib_TLB.Column) do
		begin
			DisplayFilterButton := True;
			DisplayFilterPattern := False;
			CustomFilter := 'Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*';
			FilterType := Integer(EXG2ANTTLib_TLB.exFilterDoCaseSensitive) Or Integer(EXG2ANTTLib_TLB.exPattern);
			Filter := 'Air Bag';
		end;
	end;
	with Items do
	begin
		CellValue[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'Air Bag';
		CellValue[OleVariant(AddItem('Toyota')),OleVariant(1)] := 'Air Bag,Air condition';
		CellValue[OleVariant(AddItem('Ford')),OleVariant(1)] := 'Air condition';
		CellValue[OleVariant(AddItem('Nissan')),OleVariant(1)] := 'Air Bag,ABS,ESP';
		CellValue[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'Air Bag, ABS,ESP';
		CellValue[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'ABS,ESP';
	end;
	ApplyFilter();
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'','1/2/2001','1/8/2001','K1','Leave Blank');
		ItemBar[h1,'K1',EXG2ANTTLib_TLB.exBarSelectable] := OleVariant(False);
		ItemBar[h1,'K1',EXG2ANTTLib_TLB.exBarBackColor] := OleVariant(255);
	end;
	EndUpdate();
end

// ChartEndChanging event - Occurs after the chart has been changed.
procedure TForm1.G2antt1ChartEndChanging(ASender: TObject; Operation : BarOperationEnum);
begin
	with G2antt1 do
	begin
		OutputDebugString( 'End Operation(exVSplitterChange(10)' );
		OutputDebugString( Operation );
		OutputDebugString( 'PaneWidth:' );
		OutputDebugString( Chart.PaneWidth[False] );
	end
end;

// ChartStartChanging event - Occurs when the chart is about to be changed.
procedure TForm1.G2antt1ChartStartChanging(ASender: TObject; Operation : BarOperationEnum);
begin
	with G2antt1 do
	begin
		OutputDebugString( 'Start Operation(exVSplitterChange(10)' );
		OutputDebugString( Operation );
		OutputDebugString( 'PaneWidth:' );
		OutputDebugString( Chart.PaneWidth[False] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 64;
		LevelCount := 2;
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1',Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/6/2001','K2',Null);
		AddBar(AddItem('Task 3'),'Task','1/8/2001','1/10/2001','K3',Null);
		h := AddItem('');
		AddBar(h,'','1/8/2001','1/10/2001','','<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key');
		ItemHeight[h] := 36;
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarSelectable] := OleVariant(False);
	end;
	EndUpdate();
end